How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act5/00471.ls

Text File | 1995-03-28 | 681 b | 27 lines

on talkinghead sndname
  if the number of cast sndname < 1 then
    exit
  end if
  if the castType of cast sndname = #sound then
    set ring to the number of cast "head1" - 1
    puppetSound(sndname)
    set ptime to the timer
    set dtime to 0
    set futtime to 20 + ptime + (the size of cast sndname / 183)
    repeat while the timer < futtime
      if the timer > dtime then
        set the castNum of sprite 19 to ring + random(4)
        set dtime to the timer + 10
        if the mouseDown then
          exit repeat
        end if
      end if
      updateStage()
      if the mouseDown then
        exit repeat
      end if
    end repeat
  end if
  puppetSound(0)
end